home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 051-075 / disk_060 / ueturbo / altofconfig! < prev    next >
Text File  |  1992-05-06  |  58KB  |  1,573 lines
  1.  
  2.  
  3. -----------------------------------------------------------------------------
  4. |                           Config!  V1.5                                   |
  5. |        (Copyright (C) 1986 Rick Stiles.  All rights reserved.)            |
  6. -----------------------------------------------------------------------------
  7.  
  8. This  is the config-file, which defines every start-up value and command used
  9. by Text Master.  Config! should be kept in your system's S: volume.
  10.  
  11. If you edit this file, do this:  1. Rename or delete S:Data!
  12.                                  2. Restart Text Master
  13.  
  14. Text Master will read your changes and let you correct any errors.   Then  it
  15. will make a new S:Data! file.
  16.  
  17. ==============================================================================
  18. Edit the numbers at the left, but leave the angle-brackets as they are:
  19.  
  20.  
  21. <1>        auto-backup mode:    0 = no, 1 = yes
  22. <0>        word-wrap mode:      0 = no, 1 = yes
  23. <0>        right-justify mode:  0 = no, 1 = yes
  24. <132>       maximum line-length: 10 thru 999
  25. <1>        lines per page:      10 thru 9999
  26. <0>        over-strike mode:    0 = no, 1 = yes
  27. <1>        auto-indent mode:    0 = no, 1 = yes
  28. <0>        print selection:     0 = parallel port, 1 = Preferences
  29. <1>        search sensitive to upper/lower case:  0 = no, 1 = yes
  30. <?>        search-string wildcard (1 character)
  31. <$>        search string "either-or" delimiter (1 character)
  32. <4>        tab spacing:  1-40
  33. <10>       end-of-line character: 10  =  Newline, 13 = Return or Enter
  34.  
  35.            These are for the speech synthesizer:
  36.  
  37. <n>        "n" = natural,"f" = female,"m" = male,"r" = robotic
  38. <120>      speech pitch: 65-320
  39. <200>      speech speed: 40-400
  40. <0>        speak alert messages:     0 = no, 1 = yes
  41. <0>        speak ordinary messages:  0 = no, 1 = yes
  42.  
  43. ===========================================================================
  44.  
  45. Everything from here onward is menu selections or commands.
  46.  
  47. You  can  make  small  changes,  such  as changing something inside quotation
  48. marks, without reading the manual.
  49.  
  50. But if you make significant changes, you should read the manual first.
  51.  
  52. You may change these, delete them, or create more of them.
  53.  
  54. Be sure and keep a backup copy of the original Config!, if  you  change  this
  55. file!
  56.  
  57. (( NOTE:
  58.    The first 5 entries below are Menu Titles.  Their key argument is not used.
  59.    Menu Titles can have up to 10 characters.
  60.    Menu item descriptions can have up to 17 characters.
  61. ))
  62.  
  63. <startup:
  64.    menu("Files",1,normal-f1)
  65.    menu("Buffers",2,normal-f1)
  66.    menu("Commands",3,normal-f1)
  67.    menu("Settings",4,normal-f1)
  68.    menu("Edits",5,normal-f1)
  69.  
  70.    menu("Open         A-f1",1,alt-f1)
  71.    menu("New file     C-f1",1,ctl-f1)
  72.    menu("Insert      SA-f1",1,shftAlt-f1)
  73.    menu("Restore     SC-f1",1,shftCtl-f1)
  74.    menu("AmigaDOS      C-y",1,ctl-y)
  75.    menu("DOS + result  C-z",1,ctl-z)
  76.    menu("Directory     A-z",1,alt-z)
  77.    menu("Save           f2",1,normal-f2)
  78.    menu("Save as...   S-f2",1,shft-f2)
  79.    menu("Save changes A-f2",1,alt-f2)
  80.    menu("Close          f3",1,normal-f3)
  81.    menu("Auto-close   S-f3",1,shft-f3)
  82.    menu("Quit           f4",1,normal-f4)
  83.    menu("Auto-Quit    S-f4",1,shft-f4)
  84.    menu("About Uedit      ",1,shftAltCtl-a)
  85.    menu("!!ABORT!!    A-f4",1,alt-f4)
  86.    
  87.    menu("Set search     f7",2,normal-f7)
  88.    menu("Search fwd     f9",2,normal-f9)
  89.    menu("Search bkwd  S-f9",2,shft-f9)
  90.    menu("Replace fwd   f10",2,normal-f10)
  91.    menu("Rpl all fwd A-f10",2,alt-f10)
  92.    menu("Rpl bkwd    S-f10",2,shft-f10)
  93.    menu("Set replace    f8",2,normal-f8)
  94.    menu("Search caps   C-8",2,ctl-8)
  95.    menu("Set wildcard A-f7",2,alt-f7)
  96.    menu("Set eitherOr C-f7",2,ctl-f7)
  97.    menu("Tab->space SC-tab",2,shftCtl-tab)
  98.    menu("Space->tab SA-tab",2,shftAlt-tab)
  99.    menu("Speak hilite  A-s",2,alt-s)
  100.    menu("Print hilite  C-p",2,ctl-p)
  101.    menu("Free buffers A-f3",2,alt-f3)
  102.    menu("Edit buffer SA-f6",2,shftAlt-f6)
  103.    menu("Swap buffer   C-w",2,ctl-w)
  104.    menu("See buffers SC-f6",2,shftCtl-f6)
  105.    menu("Show flags C-help",2,ctl-help)
  106.    menu("Show ASCII A-help",2,alt-help)
  107.    
  108.    menu("*-Turbocharged-* ",3,shftAltCtl-f3)
  109.    menu(" by Tom Althoff  ",3,shftAltCtl-f3)
  110.    menu("MAKE         gad3",3,normal-gadget3)
  111.    menu("MAKE <file>A-gad3",3,alt-gadget3)
  112.    menu("CCHECK     C-gad3",3,ctl-gadget3)
  113.    menu("Aztec CC   C-gad1",3,ctl-gadget1)
  114.    menu("Aztec AS   A-gad1",3,alt-gadget1)
  115.    menu("Aztec LN   C-gad2",3,ctl-gadget2)
  116.    menu("GOTO line #   C-N",3,ctl-n)
  117.    menu("Compile (macro)f6",3,normal-f6)
  118.    menu("Make command S-f6",3,shft-f6)
  119.    menu("Save config  A-f6",3,alt-f6)
  120.    menu("Swap keys   AC-f6",3,altCtl-f6)
  121.    menu("Kill key   SAC-f6",3,shftAltCtl-f6)
  122.    menu("Start learn   C-s",3,ctl-s)
  123.    menu("Run learn     C-r",3,ctl-r)
  124.    menu("Command mult  C-m",3,ctl-m)
  125.    menu("Save learn    C-5",3,ctl-5)
  126.    menu("Load learn    C-6",3,ctl-6)
  127.    menu("Run learn #   C-7",3,ctl-7)
  128.   
  129.    menu("Colors     A-help",4,shft-help)
  130.    menu("OverStrike   S-f5",4,shft-f5)
  131.    menu("AutoIndent   A-f5",4,alt-f5)
  132.    menu("WordWrap     C-f5",4,ctl-f5)
  133.    menu("Right justify A-j",4,alt-j)
  134.    menu("Tab space SAC-tab",4,shftAltCtl-tab)
  135.    menu("Line length C-rtn",4,ctl-return)
  136.    menu("Lines/page    A-g",4,alt-g)
  137.    menu("Read-only   SA-f5",4,shftAlt-f5)
  138.    menu("AutoBackup SAC-f5",4,shftAltCtl-f5)
  139.    menu("Row/Column    C-2",4,ctl-2)
  140.    menu("Mark gadgets  C-g",4,ctl-g)
  141.    menu("Print Pref    A-p",4,alt-p)
  142.    menu("Invisibles    C-v",4,ctl-v)
  143.    menu("Busies        C-b",4,ctl-b)
  144.    menu("Use keys      A-u",4,alt-u)
  145.  
  146.    menu("Copy          kp.",5,normal-kpDot)
  147.    menu("Cut           kp-",5,normal-kpMinus)
  148.    menu("Paste     kpEnter",5,normal-kpEnter)
  149.    menu("Clear         C-h",5,ctl-h)
  150.    menu("Unhilite      A-h",5,alt-h)
  151.    menu("Uninvert      A-i",5,alt-i)
  152.    menu("Reformat      C-3",5,ctl-3)
  153.    menu("Del white-spc C-4",5,ctl-4)
  154.    menu("File size     C-1",5,ctl-1)
  155.    menu("New TM EOL    A-e",5,alt-e)
  156.    menu("New File EOL  C-e",5,ctl-e)
  157.    
  158.   
  159.  
  160.    runKey(shftAltCtl-z)
  161.  
  162. >
  163.  
  164. NOTE:   shftAltCtl-z is used for whatever automatic stuff you care to program
  165. Text Master to do at startup.
  166.  
  167. Press HELP if you want to see how to set up shftAltCtl-z  to  auto-load  your
  168. files.
  169.  
  170. ---------------------------------------------------------------------------
  171. Here  is  a  description  of  how buffers are used in this file.  If you make
  172. changes which involve buffers, you should follow the convention in this list:
  173.  
  174. buf50-54 = used for temporary purposes in commands
  175. buf49 = search string
  176. buf48 = replace string
  177. buf47 = copied hilite
  178. buf46 = copied invert
  179. buf45 = holds scratch deletes for Undo, keypad-0
  180. buf44 = make-command buffer
  181. buf43 = document names
  182. buf42 = holds Help, if loaded
  183. buf41 = used in buffer swapping command, ctl-w
  184. buf40 = used for AmigaDOS commands
  185. buf39 = used for result of AmigaDOS commands (if result selected)
  186. buf38 = most recent directory name, if "Directory" has been selected
  187.  
  188. ---------------------------------------------------------------------------
  189.  
  190. <normal-help:  if (not isEmpty(buf42)) { toggle(curFile) freeBuf(buf42) }
  191.                else {
  192.                   if (insertFile(buf42,sFile,"S:Help!")) {
  193.                                editBuf(buf42)
  194.                                flipFlag(buf42,readOnly)
  195.                                flipFlag(buf42,changed)
  196.                   } else putMsg("Couldn't find S:Help! file.")
  197.                } >
  198. <shft-help:    toggle(color) >
  199. <alt-help:      if (not isEmpty(buf42)) { toggle(curFile) freeBuf(buf42) }
  200.                else {
  201.                   if (insertFile(buf42,sFile,"S:ascii.uedit")) {
  202.                                editBuf(buf42)
  203.                                flipFlag(buf42,readOnly)
  204.                                flipFlag(buf42,changed)
  205.                   } else putMsg("Couldn't find S:ascii.uedit file.")
  206.                } >
  207. <ctl-help:     showFlags>
  208.                
  209.  
  210. NOTE:  There can be shft-closeBox, alt-closeBox, etc, commands also.
  211. <normal-closeBox:   runKey(shft-f4) >  execute graceful quit key
  212.  
  213. <normal-gadget1:  vScroll(sPage)
  214.                   moveCursor(curFile,sPage)>
  215. <normal-gadget2:  vScroll(ePage)
  216.                   moveCursor(curFile,sPage)>
  217. <normal-gadget4:  toggle(curFile) >
  218.  
  219. *****************************************************************************
  220. ================================START========================================
  221. *****************************************************************************
  222.                    Turbo Amiga Functions by Thomas Althoff
  223. *****************************************************************************
  224.  
  225. <normal-gadget3: 
  226.  do(n54,0,19)
  227.  if (getFlag(buf[n54],changed))
  228.  {saveFile(buf[n54]) freeBuf(buf[n54])}
  229.  putMsg("Running Aztec 'Make', stand by")
  230.  freeBuf(buf39)
  231.  execute(buf39, "make")
  232.  runKey(shftAltCtl-f1)
  233.  >
  234.  
  235. =============================================================================
  236.  
  237. <alt-gadget3: 
  238.  do(n54,0,19)
  239.  if (getFlag(buf[n54],changed)) saveFile(buf[n54])
  240.  putMsg("Input makefile name:")
  241.  freeBuf(buf51)
  242.  freeBuf(buf52)
  243.  freeBuf(buf39)
  244.  if (inputString(buf51))
  245.  {
  246.   putMsg("Running Aztec 'Make', stand by")
  247.   insertRgn(buf52,sFile,"make -f ",all)
  248.   insertRgn(buf52,eFile,buf51,all)
  249.   execute(buf39,buf52)
  250.   runKey(shftAltCtl-f1)
  251.  }
  252. >
  253.  
  254. =============================================================================
  255.  
  256.  
  257. <alt-gadget1: 
  258.  do(n54,0,19)
  259.  if (getFlag(buf[n54],changed))  saveFile(buf[n54])
  260.  putMsg("Input command line: (-flags) filename.asm")
  261.  freeBuf(buf51)
  262.  freeBuf(buf52)
  263.  freeBuf(buf39)
  264.  if (inputString(buf51))
  265.  {
  266.   putMsg("Running Aztec 68000 Assembler, stand by")
  267.   insertRgn(buf52,sFile,"as ",all)
  268.   insertRgn(buf52,eFile,buf51,all)
  269.   execute(buf39,buf52)
  270.   runKey(shftAltCtl-f2)
  271.  }
  272. >
  273.  
  274. =============================================================================
  275. <ctl-gadget1: 
  276.  do(n54,0,19)
  277.  if (getFlag(buf[n54],changed)) saveFile(buf[n54]) 
  278.  putMsg("Input command line: (-flags) (+options) filename.c")
  279.  freeBuf(buf51)
  280.  freeBuf(buf52)
  281.  freeBuf(buf39)
  282.  if (inputString(buf51))
  283.  {
  284.   putMsg("Running Aztec C68K Compiler, stand by")
  285.   insertRgn(buf52,sFile,"cc  ",all)
  286.   insertRgn(buf52,eFile,buf51,all)
  287.   execute(buf39,buf52)
  288.   runKey(shftAltCtl-f1)
  289.  }
  290. >
  291.  
  292. =============================================================================
  293.  
  294.  
  295. <ctl-gadget2: 
  296.  do(n54,0,19)
  297.  if (getFlag(buf[n54],changed)) saveFile(buf[n54]) 
  298.  putMsg("Input command line: (-flags) (+options) filename.o (-libraries)")
  299.  freeBuf(buf51)
  300.  freeBuf(buf52)
  301.  freeBuf(buf39)
  302.  if (inputString(buf51))
  303.  {
  304.   putMsg("Running Aztec C68K Linker, stand by")
  305.   insertRgn(buf52,sFile,"ln ",all)
  306.   insertRgn(buf52,eFile,buf51,all)
  307.   execute(buf39,buf52)
  308.   runKey(shftAltCtl-f1)
  309.  }
  310. >
  311.  
  312. =============================================================================
  313.  
  314.  
  315.  
  316. <ctl-gadget3: do(n54,0,19)
  317.                if (getFlag(buf[n54],changed)) saveFile(buf[n54]) 
  318.               freeBuf(buf49)
  319.               freeBuf(buf51)
  320.               freeBuf(buf52)
  321.               freeBuf(buf39)
  322.               putMsg("Running 'CCHECK', stand by")
  323.               insertRgn(buf52,sFile,"ccheck ",all)
  324.               getFileName(buf51,curFile)
  325.               insertRgn(buf52,eFile,buf51,all)
  326.               execute(buf39,buf52)
  327.               insertRgn(buf49,sFile,"Summary:",all)
  328.               if (search(buf39,sInvert,eInvert,buf49,eChar))
  329.               {
  330.                moveCursor(buf39,eInvert)
  331.                if (not is(buf39,eLine)) moveCursor(buf39,eLine)
  332.                moveCursor(buf39,eChar)
  333.                equateLoc(buf39,sInvert,atCursor)
  334.                if(not is(buf39,eLine)) moveCursor(buf39,eLine)
  335.                equateLoc(buf39,eInvert,atCursor)
  336.                insertRgn(buf49,sInvert,buf39,invert)
  337.                putMsg(buf49)
  338.               }
  339.               
  340.               else
  341.               
  342.               {
  343.                moveCursor(buf39,eFile)
  344.                while(search(buf39,sInvert,eInvert,buf51,sChar))
  345.                {
  346.                 moveCursor(buf39,sInvert)
  347.                 clearRgn(buf39,invert)
  348.                }
  349.                putMsg(buf39)
  350.               }
  351.               
  352.               freeBuf(buf49)
  353.               freeBuf(buf51)
  354.               freeBuf(buf52)
  355. >
  356.  
  357. =============================================================================
  358.  
  359.  Note: shftAltCtl-f1 is a dummy header to act as a subroutine common to 
  360.        both make and make (filename).  The actual key sequence of shift
  361.        alternate control F1 should never be entered manually, only through
  362.        the make or make (filename) command sequence or menu execution.
  363.        
  364.  <shftAltCtl-f1:
  365.          freeBuf(buf35)
  366.          freeBuf(buf49)
  367.          freeBuf(buf54)
  368.          freeBuf(buf50)
  369.          freeBuf(buf51)
  370.          freeBuf(buf52)
  371.          insertRgn(buf49,sFile,"^",all)
  372.          label(15)
  373.          if (search(buf39,sInvert,eInvert,buf49,eChar))
  374.              {
  375.                moveCursor(buf39,eChar)
  376.                if(not is(buf39,ctlChar)) goto label(15) 
  377.                moveCursor(buf39,sChar)
  378.                moveCursor(buf39,sChar)
  379.                  if (not onScreen(atCursor)) vScroll(atCursor)
  380.                  swapBuf(curFile,buf39)
  381.                  runKey(alt-7)
  382.                  swapBuf(curFile,buf39)
  383.                  equateNum(n2,n44)
  384.                  moveCursor(buf39,eChar)
  385.                  if (not is(buf39,eLine)) moveCursor(buf39,eLine)
  386.                  moveCursor(buf39,eChar)
  387.                  equateLoc(buf39,sInvert,atCursor)
  388.                  label(17)
  389.                  while (not is(buf39,":")) moveCursor(buf39,eChar)
  390.                  moveCursor(buf39,eChar)
  391.                  if(not is(buf39,digit))
  392.                  {
  393.                   if(not is(buf39," ")) goto label(17)
  394.                  }
  395.                  moveCursor(buf39,sChar)
  396.                  equateLoc(buf39,eInvert,atCursor)
  397.                  freeBuf(buf54)
  398.                    insertRgn(buf54,sInvert,buf39,invert)
  399.                  moveCursor(buf39,eChar)
  400.                  if(is(buf39," ")) moveCursor(buf39,eChar)
  401.                  equateLoc(buf39,sInvert,atCursor)
  402.                  while(not is(buf39,":")) moveCursor(buf39,eChar)
  403.                  equateLoc(buf39,eInvert,atCursor)
  404.                  insertRgn(buf35,sInvert,buf39,invert)
  405.                  equateLoc(buf39,sInvert,atCursor)
  406.                  while(not is(buf39,ctlChar)) moveCursor(buf39,eChar)
  407.                  equateLoc(buf39,eInvert,atCursor)
  408.                  insertRgn(buf52,sInvert,buf39,invert)
  409.                  moveCursor(buf35,sFile)
  410.                  toNumber(n1,buf35)
  411.                  putMsg(buf54)
  412.                  loadFile(buf54)
  413.                  lineToLoc(curFile,atCursor,n1)
  414.                  vScroll(atCursor)
  415.                   while(sub(n2,n2,1))  moveCursor(curFile,eChar)
  416.                   speak(buf52)
  417.                  putMsg(buf52)
  418.              }
  419.              else
  420.              {
  421.               moveCursor(buf39,eFile)
  422.               moveCursor(buf39,sLine)
  423.               insertRgn(buf50,sFile,buf39,line)
  424.               moveCursor(buf50,sFile)
  425.               freeBuf(buf49)
  426.               insertRgn(buf49,sFile,"date",all)
  427.               if(search(buf50,sInvert,eInvert,buf49,eChar))
  428.               {
  429.                speak("Program is up to date")
  430.                putMsg(buf50)
  431.                goto label(16)
  432.               }
  433.               
  434.               freeBuf(buf49)
  435.               moveCursor(buf50,eFile)
  436.               moveCursor(buf50,sLine)
  437.               insertRgn(buf49,sFile,"Assembler",all)
  438.               if(search(buf50,sInvert,eInvert,buf49,eChar))
  439.               {
  440.                speak("Done!  no errors detected.")
  441.                putMsg("End of Job.  No errors detected") 
  442.                goto label(16)
  443.               }
  444.               
  445.               freeBuf(buf49)
  446.               freeBuf(buf50)
  447.               moveCursor(buf39,sFile)
  448.               insertRgn(buf49,sFile,"Base:",all)
  449.               if(search(buf39,sInvert,eInvert,buf49,eChar))
  450.               {
  451.                while(not is(buf39,eLine))moveCursor(buf39,sChar)
  452.                moveCursor(buf39,sLine)
  453.                freeBuf(buf50)
  454.                freeBuf(buf49)
  455.                insertRgn(buf50,sFile,buf39,line)
  456.                moveCursor(buf50,sFile)
  457.                insertRgn(buf49,sFile,"Linker",all)
  458.                if(search(buf50,sInvert,eInvert,buf49,eChar))
  459.                {
  460.                 speak("Done!  no errors detected.")
  461.                 putMsg("End of Job.  No errors detected") 
  462.                 goto label(16)
  463.                }
  464.               }
  465.               
  466.               
  467.                speak("Error")
  468.                putMsg(buf50)
  469.                label(16)
  470.              }
  471.                freeBuf(buf35)
  472.                freeBuf(buf54)
  473.                freeBuf(buf51)
  474.                freeBuf(buf52)
  475.                freeBuf(buf49)
  476.                freeBuf(buf50)
  477.  
  478.                >
  479.  
  480.  
  481.  
  482. =============================================================================
  483.  <shftAltCtl-f2:
  484.          freeBuf(buf35)
  485.          freeBuf(buf49)
  486.          freeBuf(buf54)
  487.          freeBuf(buf50)
  488.          freeBuf(buf51)
  489.          freeBuf(buf52)
  490.          insertRgn(buf49,sFile,"***ERROR",all)
  491.          moveCursor(buf39,eFile)
  492.          if (search(buf39,sInvert,eInvert,buf49,sChar))
  493.              {  
  494.                  moveCursor(buf39,eLine)
  495.                  equateLoc(buf39,eInvert,atCursor)
  496.                  insertRgn(buf52,sInvert,buf39,invert)
  497.                  moveCursor(buf39,sLine)
  498.                  equateLoc(buf39,sInvert,atCursor)
  499.                  while (not is(buf39,":")) moveCursor(buf39,eChar)
  500.                  equateLoc(buf39,eInvert,atCursor)
  501.                  freeBuf(buf54)
  502.                    insertRgn(buf54,sInvert,buf39,invert)
  503.                  moveCursor(buf39,eInvert)
  504.                  moveCursor(buf39,eChar)
  505.                  moveCursor(buf39,eChar)
  506.                  equateLoc(buf39,sInvert,atCursor)
  507.                  while(not is(buf39,":")) moveCursor(buf39,eChar)
  508.                  equateLoc(buf39,eInvert,atCursor)
  509.                  insertRgn(buf35,sInvert,buf39,invert)
  510.                  equateLoc(buf39,sInvert,atCursor)
  511.                  while(not is(buf39,ctlChar)) moveCursor(buf39,eChar)
  512.                  equateLoc(buf39,eInvert,atCursor)
  513.                  moveCursor(buf35,sFile)
  514.                  toNumber(n1,buf35)
  515.                  freeBuf(buf49)
  516.                  insertRgn(buf49,sFile,"^",all)
  517.                  moveCursor(buf39,eFile)
  518.                  if (search(buf39,sInvert,eInvert,buf49,sChar))
  519.                  {
  520.                   swapBuf(curFile,buf39)
  521.                   moveCursor(curFile,sChar)
  522.                   runKey(alt-7)
  523.                   swapBuf(curFile,buf39)
  524.                   equateNum(n2,n44)
  525.                  }
  526.                  putMsg(buf54)
  527.                  loadFile(buf54)
  528.                  lineToLoc(curFile,atCursor,n1)
  529.                  vScroll(atCursor)
  530.                  while(sub(n2,n2,1))  moveCursor(curFile,eChar)
  531.                  speak("Error in Assembler source code")
  532.                  putMsg(buf52)
  533.                  
  534.              }
  535.             >
  536.  
  537.  
  538.  
  539.  
  540.  
  541. *****************************************************************************
  542. =================================END=========================================
  543. *****************************************************************************
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551. <normal-upArrow:     vScroll(upLine) >
  552. <normal-downArrow:   vScroll(downLine) >
  553. <normal-leftArrow:   hScroll(eChar) >
  554. <normal-rightArrow:  hScroll(sChar) >
  555.  
  556. <shft-upArrow:       do (n54,1,11) vScroll(upLine) >
  557. <shft-downArrow:     do (n54,1,11) vScroll(downLine) >
  558. <shft-leftArrow:     do (n54,1,10) hScroll(eChar) >
  559. <shft-rightArrow:    do (n54,1,10) hScroll(sChar) >
  560.  
  561.  
  562. <alt-upArrow:        vScroll(sPage)
  563.                      moveCursor(curFile,sPage)>
  564. <alt-downArrow:      vScroll(ePage)
  565.                      moveCursor(curFile,sPage)>
  566. /***************************************************************************/
  567.  ================================END========================================
  568. /***************************************************************************/
  569.  
  570.  
  571.  
  572.  
  573.  
  574. <alt-leftArrow:      do (n54,1,20) hScroll(eChar) >
  575. <alt-rightArrow:     do (n54,1,20) hScroll(sChar) >
  576.  
  577. <ctl-upArrow:        vScroll(sFile) >
  578. <ctl-downArrow:      vScroll(eFile) >
  579. <ctl-leftArrow:      equateNum(n54,lineLength)
  580.                      do (n53,1,n54) hScroll(eChar) >
  581. <ctl-rightArrow:     while (hScroll(sChar)) nothing >
  582.  
  583. place cursor
  584. <normal-buttonDown:  moveCursor(curFile,mouseLoc)
  585.                      putMsg("|     Go UP Page    |   Go DOWN Page    |       MAKE       | NEXT FILE  ")>>
  586. set start of hilite
  587. <shft-buttonDown:    equateLoc(curFile,sHilite,mouseLoc) refreshDisplay >
  588. set end of hilite
  589. <alt-buttonDown:     equateLoc(curFile,eHilite,mouseLoc) refreshDisplay >
  590. load filename that is clicked
  591. <ctl-buttonDown:
  592.    equateLoc(curFile,atCursor,mouseLoc)
  593.    if (not is(curFile,whiteSpace)) {
  594.        while (not is(curFile,whiteSpace))
  595.            { moveCursor(curFile,sChar) if (is(curFile,sFile)) goto label(1) }
  596.        label(1)
  597.        while (is(curFile,whiteSpace)) moveCursor(curFile,eChar)
  598.        equateLoc(curFile,sInvert,atCursor)
  599.        while (not is(curFile,whiteSpace)) moveCursor(curFile,eChar)
  600.        equateLoc(curFile,eInvert,atCursor)
  601.        refreshDisplay
  602.        freeBuf(buf54)
  603.        insertRgn(buf54,sFile,buf38,all)
  604.        insertRgn(buf54,eFile,curFile,invert)
  605.        loadFile(buf54)
  606.    } 
  607.  >
  608.  
  609.  
  610. Click or drag mouse, put word/phrase into index in buf41.  (Ctl-w to see.)
  611. <shftAlt-buttonDown:
  612.    equateLoc(curFile,atCursor,mouseLoc)
  613.    moveCursor(curFile,eWord)
  614.    equateLoc(curFile,eInvert,atCursor)
  615.    moveCursor(curFile,sWord)
  616.    equateLoc(curFile,sInvert,atCursor) >
  617.  
  618. ((See shftAlt-buttonDown and shftAlt-i.))
  619. <shftAlt-buttonUp:
  620.    equateLoc(curFile,atCursor,mouseLoc)
  621.    moveCursor(curFile,eWord)
  622.    equateLoc(curFile,eInvert,atCursor)
  623.    if (geLoc(curFile,sInvert,eInvert)) returnFalse
  624.    moveCursor(curFile,sInvert)
  625.    if (is(curFile,upperCase)) equateNum(n0,1)
  626.    else equateNum(n0,0)
  627.    toLower(curFile)
  628.    copyChar(curFile,n54)
  629.    if (eqNum(n0,1)) toUpper(curFile)
  630.    if (isEmpty(buf41)) insertChar(buf41,eLine)
  631.    moveCursor(buf41,sFile)
  632.    equateLoc(buf41,sPage,atCursor)
  633.    label(1)
  634.    if (is(buf41,upperCase)) equateNum(n0,1)
  635.    else equateNum(n0,0)
  636.    toLower(buf41)
  637.    copyChar(buf41,n53)
  638.    if (eqNum(n0,1)) toUpper(buf41)
  639.    if (gtNum(n54,n53)) {
  640.        moveCursor(buf41,downLine)
  641.        if (not is(buf41,eFile)) goto label(1)
  642.    }
  643.    insertRgn(buf41,atCursor,curFile,invert)
  644.    insertChar(buf41,eLine)
  645. >
  646. /*********** Invert mouse drag bypassed by althoff ******************/
  647. set start of invert
  648. <shftCtl-buttonDown:> equateLoc(curFile,sInvert,mouseLoc) refreshDisplay 
  649. set end of invert
  650. <altCtl-buttonDown:>  equateLoc(curFile,eInvert,mouseLoc) refreshDisplay 
  651. /*********************************************************************/
  652. drag mouse and create hilite
  653. <shftAltCtl-buttonDown:
  654.    equateLoc(curFile,locA,mouseLoc)
  655.    while (trackMouse) 
  656.    {
  657.     if (gtLoc(curFile,locA,mouseLoc))
  658.        {
  659.         equateLoc(curFile,sHilite,mouseLoc)
  660.         equateLoc(curFile,eHilite,locA)
  661.        }
  662.     else   
  663.        {
  664.         equateLoc(curFile,eHilite,mouseLoc) 
  665.         equateLoc(curFile,sHilite,locA)
  666.        }
  667.     refreshDisplay
  668.    }
  669. >
  670. switch to next file
  671. <normal-f1:    toggle(curFile) >
  672. switch to next favorite
  673. <shft-f1:      toggle(favorite) > 
  674. <alt-f1:       putMsg("Input new filename:")
  675.                freeBuf(buf43)
  676.                if (inputString(buf43)) loadFile(buf43) >
  677. open new blank file buffer
  678. <ctl-f1:       newFile >
  679. <shftAlt-f1:   putMsg("Input filename to insert:")
  680.                freeBuf(buf43)
  681.                if (inputString(buf43)) insertFile(curFile,atCursor,buf43) >
  682. <shftCtl-f1:   if (not askYesNo("Restore file to original?"))
  683.                           returnFalse
  684.                if (getFileName(buf43,curFile))
  685.                    { freeBuf(curFile) loadFile(buf43) } >
  686.  
  687. save file currently in window
  688. <normal-f2: saveFile(curFile) >
  689. <shft-f2:   putMsg("Save file as:")
  690.             freeBuf(buf43)
  691.             if (inputString(buf43)) if (setFileName(curFile,buf43))
  692.                    saveFile(curFile) >
  693. save all changed files
  694. <alt-f2:    do(n54,0,19)
  695.                if (getFlag(buf[n54],changed)) saveFile(buf[n54]) >
  696.  
  697.  
  698. <normal-f3: if (getFlag(curFile,changed))
  699.               if (askYesNo("Save changes before closing?"))
  700.                 if (not saveFile(curFile)) returnFalse
  701.             freeBuf(curFile) >
  702. save file, if changed, then close it
  703. <shft-f3:   if (getFlag(curFile,changed)) if (not saveFile(curFile))
  704.                                    returnFalse
  705.             freeBuf(curFile) >
  706. free all buffers
  707. <alt-f3:    do(n54,20,54) freeBuf(buf[n54]) >
  708.  
  709. <shftAltCtl-f3: >
  710.  
  711. <normal-f4: if (not askYesNo("Really quit?")) returnFalse
  712.             equateNum(n53,0)
  713.             do(n54,0,19) if (getFlag(buf[n54],changed)) equateNum(n53,1)
  714.             if (eqNum(n53,1)) if (askYesNo("Save changes?")) runKey(shft-f4)
  715.             quit >
  716. save all changed files, then quit
  717. <shft-f4:   do (n54,0,19) if (getFlag(buf[n54],changed))
  718.                                if (not saveFile(buf[n54])) returnFalse
  719.             quit >
  720. quit WITHOUT saving any files
  721. <alt-f4:    quit >
  722.  
  723. switch flag settings:
  724. <normal-f5:        flipFlag(curFile,favorite) >
  725. <shft-f5:          flipFlag(curFile,overstrike) >
  726. <alt-f5:           flipFlag(curFile,autoIndent) >
  727. <ctl-f5:           flipFlag(curFile,wordWrap) >
  728. <shftAlt-f5:       flipFlag(curFile,readOnly) >
  729. <shftCtl-f5:       flipFlag(curFile,speakMsgs) >
  730. <altCtl-f5:        flipFlag(curFile,speakAlerts) >
  731. <shftAltCtl-f5:    flipFlag(curFile,autoBackup) >
  732.  
  733. compile command in current buffer in window
  734. <normal-f6:    compile >
  735. select buffer 44 to use for writing commands
  736. <shft-f6:      editBuf(buf44)
  737.        putMsg("Type in command, <anykey: etc>, and press F6 to compile:") >
  738. save Text Master configuration to disk
  739. <alt-f6:
  740.        if (askYesNo("Save config?")) {
  741.            putMsg("Input data filename or ESC:")
  742.            freeBuf(buf54)
  743.            inputString(buf54)
  744.            saveConfig(buf54)
  745.        } >
  746. restore Text Master configuration from disk
  747. <ctl-f6:
  748.        if (askYesNo("Load config?")) {
  749.            putMsg("Input data filename or ESC:")
  750.            freeBuf(buf54)
  751.            inputString(buf54)
  752.            loadConfig(buf54)
  753.        } >
  754. edit a buffer
  755. <shftAlt-f6:   putMsg("Input number of buffer to edit:")
  756.                if (inputNum(n54)) editBuf(buf[n54]) >
  757. examine all buffers that aren't empty
  758. <shftCtl-f6:   do (n54,20,54) if (not isEmpty(buf[n54])) {
  759.                    editBuf(buf[n54])
  760.                    refreshDisplay
  761.                    putMsg("F1=continue, F2=edit this one, F3=stop:")
  762.                    getKey(n53)
  763.                    if (eqNum(n53,normal-f2)) { putMsg(" ") returnTrue }
  764.                    if (eqNum(n53,normal-f3)) goto label(1)
  765.                }
  766.                label(1)
  767.                toggle(curFile)
  768.                putMsg(" ") >
  769. swap anything, including mouse clicks, menu selections, gadgets, keys
  770. <altCtl-f6:    putMsg("Next 2 function-keys will be swapped!")
  771.                if (getKey(n53)) if (getKey(n54)) if (swapKey(n53,n54))
  772.                    { putMsg("Keys were swapped.") returnTrue }
  773.                putMsg(" ") >
  774. kill command, including mouse clicks, menu selections, gadgets, keys
  775. <shftAltCtl-f6:
  776.                putMsg("Next command-key will be deleted!")
  777.                if (getKey(n54)) if (killKey(n54))
  778.                    { putMsg("Key command was deleted.") returnTrue }
  779.                putMsg(" ") >
  780.  
  781. input search text to use, including either-or "$" and wildcards "?"
  782. <normal-f7:    freeBuf(buf49) runKey(shft-f7) >
  783. modify existing search text
  784. <shft-f7:      putMsg("Input search string:")
  785.                inputString(buf49)
  786.                runKey(normal-f9) >
  787. <alt-f7:       putMsg("Input new search wild-card char:")
  788.                freeBuf(buf49)
  789.                if (inputString(buf49))
  790.                    { moveCursor(buf49,sFile) copyChar(buf49,wildCard) } >
  791. <ctl-f7:       putMsg("Input new search either-or char:")
  792.                freeBuf(buf49)
  793.                if (inputString(buf49))
  794.                    { moveCursor(buf49,sFile) copyChar(buf49,eitherOr) } >
  795.  
  796. input replace text
  797. <normal-f8:    freeBuf(buf48) runKey(shft-f8) >
  798. modify existing replace text
  799. <shft-f8:      putMsg("input replace string:") inputString(buf48) >
  800.  
  801. NOTE: returnTrue is needed below because "thisKey" could return a False even
  802. though search() returned True.  returnFalse is needed because equateLoc()
  803. will return a True:
  804.  
  805. search forward, invert "matched" region, put cursor at start of region
  806. <normal-f9:  if (eqLoc(curFile,atCursor,eInvert)) moveCursor(curFile,sChar)
  807.              if (search(curFile,sInvert,eInvert,buf49,eChar)) {
  808.                if (thisKey) if (not onScreen(atCursor)) vScroll(atCursor)
  809.                returnTrue
  810.              }
  811.              putMsg("Search failed.")
  812.              equateLoc(curFile,sInvert,eInvert)
  813.              returnFalse >
  814. search backward
  815. <shft-f9:    if (search(curFile,sInvert,eInvert,buf49,sChar)) {
  816.                if (thisKey) if (not onScreen(atCursor)) vScroll(atCursor)
  817.                returnTrue
  818.              }
  819.              putMsg("Search failed.")
  820.              equateLoc(curFile,sInvert,eInvert)
  821.              returnFalse >
  822.  
  823. replace "matched" region, then search forward
  824. <normal-f10:   if (eqLoc(curFile,sInvert,eInvert)) returnFalse
  825.                clearRgn(curFile,invert)
  826.                insertRgn(curFile,sInvert,buf48,all)
  827.                runKey(normal-f9) >
  828. replace "matched" region, then search backward
  829. <shft-f10:     if (eqLoc(curFile,sInvert,eInvert)) returnFalse
  830.                clearRgn(curFile,invert)
  831.                insertRgn(curFile,sInvert,buf48,all)
  832.                runKey(shft-f9) >
  833. replace-all forward
  834. <alt-f10:      while(runKey(normal-f10)) nothing >
  835.  
  836. These  keys use the Keypad Keys below - be sure and change them if you change
  837. the Keypad Keys:
  838.  
  839. /*************************************************************************/
  840. ========= Shft-bs converted to normal-bs by ALTHOFF ======================
  841.  
  842. shft-bs:      runKey(normal-kp7)     delete word left
  843.  
  844. /*************************************************************************/
  845.  
  846. <shft-del:     runKey(normal-kp9) >    delete word right
  847. <alt-bs:       runKey(alt-kp7) >       delete line left
  848. <alt-del:      runKey(alt-kp9) >       delete line right
  849. <ctl-bs:       runKey(ctl-kp7) >       delete page left
  850. <ctl-del:      runKey(ctl-kp9) >       delete page right
  851.  
  852.  
  853. ---------------------------- Keypad Keys   ----------------------------------
  854. find cursor
  855. <normal-kp5:   vScroll(atCursor) >
  856. delete word left
  857. <normal-kp7:   if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  858.                equateLoc(curFile,locB,atCursor)
  859.                moveCursor(curFile,sWord)
  860.                equateLoc(curFile,locA,atCursor)
  861.                insertRgn(buf45,sFile,curFile,loc)
  862.                clearRgn(curFile,loc) >
  863. delete word right
  864. <normal-kp9:   if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  865.                equateLoc(curFile,locA,atCursor)
  866.                moveCursor(curFile,eWord)
  867.                equateLoc(curFile,locB,atCursor)
  868.                insertRgn(buf45,eFile,curFile,loc)
  869.                clearRgn(curFile,loc) >
  870. <normal-kp8:   moveCursor(curFile,upLine) >
  871. <normal-kp2:   moveCursor(curFile,downLine) >
  872. <normal-kp4:   moveCursor(curFile,sWord) >
  873. <normal-kp6:   moveCursor(curFile,eWord) >
  874. set start of hilite at cursor
  875. <normal-kp1:   equateLoc(curFile,sHilite,atCursor) refreshDisplay >
  876. set end of hilite at cursor
  877. <normal-kp3:   equateLoc(curFile,eHilite,atCursor) refreshDisplay >
  878. UNDO scratch deletes, inserting scratch delete buffer at cursor
  879. <normal-kp0:   insertRgn(curFile,atCursor,buf45,all) >
  880. copy hilite region into buffer
  881. <normal-kpDot: if (not eqLoc(curFile,sHilite,eHilite))
  882.                    { freeBuf(buf47) insertRgn(buf47,sFile,curFile,hilite) }
  883.                else returnFalse >
  884. copy hilite region into buffer, then delete hilite region
  885. <normal-kpMinus:   if (runKey(normal-kpDot)) clearRgn(curFile,hilite) >
  886. insert copied hilite at cursor
  887. <normal-kpEnter:   insertRgn(curFile,atCursor,buf47,all)
  888.                    if (not onScreen(atCursor)) vScroll(atCursor) >
  889.  
  890. <shft-kp5:     vScroll(atCursor) >
  891. delete character left
  892. <shft-kp7:     if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  893.                equateLoc(curFile,locB,atCursor)
  894.                moveCursor(curFile,sChar)
  895.                equateLoc(curFile,locA,atCursor)
  896.                insertRgn(buf45,sFile,curFile,loc)
  897.                clearRgn(curFile,loc) >
  898. delete character under cursor
  899. <shft-kp9:     if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  900.                equateLoc(curFile,locA,atCursor)
  901.                moveCursor(curFile,eChar)
  902.                equateLoc(curFile,locB,atCursor)
  903.                insertRgn(buf45,eFile,curFile,loc)
  904.                clearRgn(curFile,loc) >
  905. <shft-kp8:     moveCursor(curFile,upLine) >
  906. <shft-kp2:     moveCursor(curFile,downLine) >
  907. <shft-kp4:     moveCursor(curFile,sChar) >
  908. <shft-kp6:     moveCursor(curFile,eChar) >
  909. <shft-kp1:     runKey(normal-kp1) >
  910. <shft-kp3:     runKey(normal-kp3) >
  911. <shft-kp0:     runKey(normal-kp0) >
  912. <shft-kpDot:   runKey(normal-kpDot) >
  913. <shft-kpMinus: runKey(normal-kpMinus) >
  914. <shft-kpEnter: runKey(normal-kpEnter) >
  915.  
  916. <alt-kp5:      vScroll(atCursor) >
  917. delete line left
  918. <alt-kp7:      if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  919.                if (is(curFile,sLine)) runKey(shft-kp7)
  920.                else {
  921.                    equateLoc(curFile,locB,atCursor)
  922.                    moveCursor(curFile,sLine)
  923.                    equateLoc(curFile,locA,atCursor)
  924.                    insertRgn(buf45,sFile,curFile,loc)
  925.                    clearRgn(curFile,loc)
  926.                } >
  927. delete line right
  928. <alt-kp9:   if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  929.             if (is(curFile,eLine)) runKey(shft-kp9)
  930.             else {
  931.                equateLoc(curFile,locA,atCursor)
  932.                moveCursor(curFile,eLine)
  933.                equateLoc(curFile,locB,atCursor)
  934.                insertRgn(buf45,eFile,curFile,loc)
  935.                clearRgn(curFile,loc)
  936.             } >
  937. <alt-kp8:   moveCursor(curFile,upLine) >
  938. <alt-kp2:   moveCursor(curFile,downLine) >
  939. <alt-kp4:   moveCursor(curFile,sLine) >
  940. <alt-kp6:   moveCursor(curFile,eLine) >
  941. <alt-kp1:   runKey(normal-kp1) >
  942. <alt-kp3:   runKey(normal-kp3) >
  943. <alt-kp0:     runKey(normal-kp0) >
  944. <alt-kpDot:   runKey(normal-kpDot) >
  945. <alt-kpMinus: runKey(normal-kpMinus) >
  946. <alt-kpEnter: runKey(normal-kpEnter) >
  947.  
  948. <ctl-kp5:      vScroll(atCursor) >
  949. delete to start of page
  950. <ctl-kp7:      if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  951.                equateLoc(curFile,locB,atCursor)
  952.                moveCursor(curFile,sPage)
  953.                equateLoc(curFile,locA,atCursor)
  954.                insertRgn(buf45,sFile,curFile,loc)
  955.                clearRgn(curFile,loc)
  956.                vScroll(atCursor) >
  957. delete to end of page
  958. <ctl-kp9:      if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  959.                equateLoc(curFile,locA,atCursor)
  960.                moveCursor(curFile,ePage)
  961.                equateLoc(curFile,locB,atCursor)
  962.                insertRgn(buf45,eFile,curFile,loc)
  963.                clearRgn(curFile,loc) >
  964. <ctl-kp8:      moveCursor(curFile,sPage) vScroll(atCursor) >
  965. <ctl-kp2:      moveCursor(curFile,ePage) vScroll(atCursor) >
  966. <ctl-kp4:      moveCursor(curFile,sLine) >
  967. <ctl-kp6:      moveCursor(curFile,eLine) >
  968. set start of invert at cursor
  969. <ctl-kp1:      equateLoc(curFile,sInvert,atCursor) refreshDisplay >
  970. set end of invert at cursor
  971. <ctl-kp3:      equateLoc(curFile,eInvert,atCursor) refreshDisplay >
  972. <ctl-kp0:      runKey(normal-kp0) >
  973. copy invert region into buffer
  974. <ctl-kpDot:    if (not eqLoc(curFile,sInvert,eInvert))
  975.                    { freeBuf(buf46) insertRgn(buf46,sFile,curFile,invert) }
  976.                else returnFalse >
  977. copy, then delete, invert region
  978. <ctl-kpMinus:  runKey(ctl-kpDot) clearRgn(curFile,invert) >
  979. insert copied invert region at cursor
  980. <ctl-kpEnter:  insertRgn(curFile,atCursor,buf46,all)
  981.                if (not onScreen(atCursor)) vScroll(atCursor) >
  982.  
  983. ------------------------- miscellaneous keys  -------------------------------
  984.  
  985. <ctl-return: putMsg("Enter new line-length:")
  986.              if (inputNum(n54)) if (gtNum(n54,0))
  987.              { setLocal(curFile,lineLength,n54) equateNum(lineLength,n54) } >
  988.  
  989. transparent tab fwd
  990. <shft-tab: while (moveCursor(curFile,eChar)) {
  991.                if (is(curFile,sLine)) returnTrue
  992.                if (is(curFile,tabColumn)) returnTrue
  993.            }
  994.            returnFalse >
  995.  
  996. transparent tab bkwd
  997. <alt-tab:  while (moveCursor(curFile,sChar)) {
  998.                if (is(curFile,sLine)) returnTrue
  999.                if (is(curFile,tabColumn)) returnTrue
  1000.            }
  1001.            returnFalse >
  1002.  
  1003. untab - delete spaces back to prev tab column
  1004. <ctl-tab:   equateNum(n53,tabSpacing)
  1005.             do (n54,1,n53) {
  1006.                 moveCursor(curFile,sChar)
  1007.                 if (is(curFile,space)) clearChar(curFile)
  1008.                 else { moveCursor(curFile,eChar) returnFalse }
  1009.                 if (is(curFile,tabColumn)) returnTrue
  1010.             } >
  1011. <shftAlt-tab:  putMsg("Converting spaces to TABs....")
  1012.                spacesToTabs putMsg(" ") >
  1013. <shftCtl-tab:  putMsg("Converting TABs to spaces....")
  1014.                tabsToSpaces putMsg(" ") >
  1015. <shftAltCtl-tab:
  1016.            putMsg("Enter new tab spacing:")
  1017.            if (inputNum(n54)) if (gtNum(n54,0))
  1018.              { setLocal(curFile,tabSpacing,n54) equateNum(tabSpacing,n54) } >
  1019.  
  1020. trim spaces between next 2 words
  1021. <ctl-b:  flipFlag(curFile,busies) >
  1022. trim spaces between words
  1023. <alt-c:  while (not is(curFile,space))
  1024.            { moveCursor(curFile,eChar) if (is(curFile,eFile)) returnTrue }
  1025.          moveCursor(curFile,eChar)
  1026.          while (is(curFile,space)) clearChar(curFile) >
  1027. input a ctl-character, such as formfeed, into text at cursor
  1028. <ctl-c:  putMsg("Input a control character:") inputCtlChar >
  1029. input a command and count number of times executed
  1030. <shftAlt-c:    equateNum(n54,0)
  1031.                putMsg("Input command to execute & count:")
  1032.                if (getKey(n53)) {
  1033.                    while (runKey(n53)) incNum(n54)
  1034.                    freeBuf(buf54)
  1035.                    insertRgn(buf54,sFile,"Times executed = ",all)
  1036.                    toWord(buf54,n54)
  1037.                    putMsg(buf54)
  1038.                } >
  1039. delay # tenths of seconds stored in n46 (see shftAlt-d)
  1040. <alt-d:    delay(n46) >
  1041. delete entire line
  1042. <ctl-d:    if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  1043.            equateLoc(curFile,locB,atCursor)
  1044.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1045.            if (not eqLoc(curFile,locB,atCursor)) {
  1046.                equateLoc(curFile,locA,atCursor)
  1047.                insertRgn(buf45,sFile,curFile,loc)
  1048.                clearRgn(curFile,loc)
  1049.            } else equateLoc(curFile,locA,atCursor)
  1050.            if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1051.            moveCursor(curFile,eChar)
  1052.            equateLoc(curFile,locB,atCursor)
  1053.            insertRgn(buf45,eFile,curFile,loc)
  1054.            clearRgn(curFile,loc) >
  1055.  
  1056. <shftAlt-d: putMsg("Input # tenths of seconds (used in delays)")
  1057.             inputNum(n46) >
  1058. <alt-e:    putMsg("Input new end-of-line value (usually 10 or 13):")
  1059.            inputNum(n54)
  1060.            setEol(n54)
  1061.            refreshDisplay >
  1062. <ctl-e:
  1063.        putMsg("Input file's current end-of-line value (usually 10 or 13):")
  1064.            inputNum(n54)
  1065.            if (not gtNum(n54,0)) returnFalse
  1066.            putMsg("Input new end-of-line value (usually 10 or 13):")
  1067.            inputNum(n53)
  1068.            if (not gtNum(n53,0)) returnFalse
  1069.            setEol(n54)
  1070.            moveCursor(curFile,sFile)
  1071.            putMsg("Changing eol characters ... hit Amiga-ESC to abort.")
  1072.            while (moveCursor(curFile,eLine))
  1073.                if (is(curFile,n54)) swapChar(curFile,n53)
  1074.            setEol(n53)
  1075.            vScroll(sFile)
  1076.            putMsg(" ")
  1077.            refreshDisplay >
  1078. <alt-f:    putMsg("Input buffer # to free:")
  1079.            inputNum(n54)
  1080.            freeBuf(buf[n54]) >
  1081. flip upper/lower case of character under cursor
  1082. <ctl-f:    if (is(curFile,alpha)) {
  1083.                if (is(curFile,lowerCase)) toUpper(curFile)
  1084.                else toLower(curFile)
  1085.            }
  1086.            moveCursor(curFile,eChar) >
  1087. <ctl-g:    flipFlag(curFile,markGadgets) >
  1088. <alt-g:    putMsg("Enter new lines/page:")
  1089.            if (inputNum(n54))
  1090.            { setLocal(curFile,pageLines,n54) equateNum(pageLines,n54) } >
  1091. unhilite the hilite
  1092. <alt-h:    equateLoc(curFile,sHilite,eHilite) refreshDisplay >
  1093. clear hilite region - No Copy is made
  1094. <ctl-h:    clearRgn(curFile,hilite) >
  1095. uninvert the invert
  1096. <alt-i:    equateLoc(curFile,sInvert,eInvert) refreshDisplay >
  1097. clear invert region - No Copy is made
  1098. <ctl-i:    clearRgn(curFile,invert) >
  1099. Scan list in buf41, create index.  ((See shftAlt-buttonDown & buttonUp.))
  1100. <shftAlt-i:
  1101.    if (isEmpty(buf41)) returnFalse
  1102.    runKey(alt-g)
  1103.    freeBuf(buf54)
  1104.    label(1)
  1105.    moveCursor(buf41,sFile)
  1106.    while (is(buf41,whiteSpace)) clearChar(buf41)
  1107.    if (is(buf41,eFile)) {
  1108.        swapBuf(buf54,buf41)
  1109.        freeBuf(buf54)
  1110.        setFileName(buf41,"Index")
  1111.        equateLoc(buf41,sPage,sFile)
  1112.        equateLoc(buf41,atCursor,sFile)
  1113.        putMsg("Press ctl-w to see Index")
  1114.        returnTrue
  1115.    }
  1116.    freeBuf(buf49)
  1117.    insertRgn(buf49,sFile,buf41,line)
  1118.    clearRgn(buf41,line)
  1119.    putMsg(buf49)
  1120.    moveCursor(buf54,eFile)
  1121.    insertRgn(buf54,eFile,buf49,all)
  1122.    insertRgn(buf54,eFile,"  ",all)
  1123.    insertChar(buf54,eLine)
  1124.    moveCursor(buf54,sChar)
  1125.    equateNum(n53,0)
  1126.    moveCursor(curFile,sFile)
  1127.    label(2)
  1128.    while (search(curFile,sInvert,eInvert,buf49,eChar)) {
  1129.        moveCursor(curFile,sChar)
  1130.        if (is(curFile,alpha)) {
  1131.            label(3)
  1132.            moveCursor(curFile,eInvert)
  1133.            goto label(2)
  1134.        }
  1135.        if (is(curFile,digit)) goto label(3)
  1136.        moveCursor(curFile,eInvert)
  1137.        if (is(curFile,alpha)) goto label(2)
  1138.        if (is(curFile,digit)) goto label(2)
  1139.        locToLine(curFile,n54,atCursor)
  1140.        div(n54,n54,pageLines)
  1141.        incNum(n54)
  1142.        if (not eqNum(n54,n53)) {
  1143.            if (not eqNum(n53,0)) insertChar(buf54,",")
  1144.            toWord(buf54,n54)
  1145.            equateNum(n53,n54)
  1146.        }
  1147.    }
  1148.    goto label(1)
  1149. >
  1150. <alt-j:    flipFlag(curFile,rightJustify) >
  1151. join two lines together
  1152. <ctl-j:    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1153.            equateLoc(curFile,locA,atCursor)
  1154.            label(1)
  1155.            moveCursor(curFile,eChar)
  1156.            if (is(curFile,space)) goto label(1)
  1157.            equateLoc(curFile,locB,atCursor)
  1158.            clearRgn(curFile,loc)
  1159.            insertRgn(curFile,atCursor," ",all) >
  1160. move hilite region to left by one space
  1161. <alt-l:    moveCursor(curFile,sHilite)
  1162.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1163.            label(1)
  1164.            if (is(curFile,space)) clearChar(curFile)
  1165.            if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1166.            moveCursor(curFile,eChar)
  1167.            if (gtLoc(curFile,eHilite,atCursor)) goto label(1) >
  1168. convert char under cursor to lower case
  1169. <ctl-l:    toLower(curFile) moveCursor(curFile,eChar) >
  1170. <ctl-m:    putMsg("Input command multiplier:") inputNum(cmdMultiplier) >
  1171. rename document in window
  1172. <alt-n:    putMsg("Input new filename:")
  1173.            getFileName(buf43,curFile)
  1174.            if (inputString(buf43))
  1175.            setFileName(curFile,buf43) >
  1176. go to line number in text
  1177. <ctl-n:    putMsg("Input line number:")
  1178.            if (inputNum(n54))
  1179.            { lineToLoc(curFile,atCursor,n54) vScroll(atCursor) } >
  1180. open cursor line for typing
  1181. <ctl-o:    insertChar(curFile,eLine) moveCursor(curFile,sChar) >
  1182. print hilite region
  1183. <ctl-p:    print(curFile,hilite) >
  1184. switch between printing thru parallel port and through Amiga Preferences
  1185. <alt-p:    flipFlag(curFile,prefPrint) >
  1186. move hilite region to right by one space
  1187. <alt-r:    moveCursor(curFile,sHilite)
  1188.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1189.            label(1)
  1190.            if (gtLoc(curFile,eHilite,atCursor)) {
  1191.                insertChar(curFile," ")
  1192.                if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1193.                moveCursor(curFile,eChar)
  1194.                goto label(1)
  1195.            } >
  1196. run whatever is stored in learn-buffer
  1197. <ctl-r:    runLearn >
  1198. speak the hilite region a line at a time
  1199. <alt-s:    if (gtLoc(curFile,eHilite,sHilite)) {
  1200.                equateLoc(curFile,locA,atCursor)
  1201.                equateLoc(curFile,sInvert,sHilite)
  1202.                equateLoc(curFile,atCursor,sHilite)
  1203.                while (gtLoc(curFile,eHilite,sInvert)) {
  1204.                    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1205.                    moveCursor(curFile,eChar)
  1206.                    if (gtLoc(curFile,atCursor,eHilite))
  1207.                         equateLoc(curFile,eInvert,eHilite)
  1208.                    else equateLoc(curFile,eInvert,atCursor)
  1209.                    if (gtLoc(curFile,eInvert,sInvert)) {
  1210.                        freeBuf(buf50)
  1211.                        insertRgn(buf50,sFile,curFile,invert)
  1212.                        speak(buf50)
  1213.                    }
  1214.                    equateLoc(curFile,sInvert,atCursor)
  1215.                }
  1216.                equateLoc(curFile,atCursor,locA)
  1217.            } >
  1218. start/abort Learn Mode
  1219. <ctl-s:    if (not getFlag(curFile,learnMode)) putMsg("LEARN MODE ACTIVE!")
  1220.            else putMsg("Learn Mode cancelled.")
  1221.            flipFlag(curFile,learnMode) >
  1222. Use keys for character/number input
  1223. <alt-u: flipFlag(curFile,useKeys)>
  1224. switch char under cursor to upper case
  1225. <ctl-u:    toUpper(curFile) moveCursor(curFile,eChar) >
  1226. switch flag that makes control-characters visible/invisible
  1227. <ctl-v:    flipFlag(curFile,spooks) refreshDisplay >
  1228. swap current buffer in window with buffer 41
  1229. <ctl-w:    swapBuf(curFile,buf41) >
  1230. for programmers:  toggle number under cursor betw hexadecimal/decimal
  1231. <ctl-x:    hexDecimal(curFile) >
  1232. execute AmigaDOS command but don't collect the results
  1233. <ctl-y:    putMsg("Enter AmigaDOS command")
  1234.            freeBuf(buf40)
  1235.            inputString(buf40)
  1236.            if (not isEmpty(buf40)) execute(" ",buf40) >
  1237. execute AmigaDOS command and collect results
  1238. <ctl-z:    putMsg("Enter AmigaDOS command")
  1239.            freeBuf(buf40)
  1240.            inputString(buf40)
  1241.            if (isEmpty(buf40)) returnFalse
  1242.            freeBuf(buf39)
  1243.            if (not execute(buf39,buf40)) returnFalse
  1244.            if (not isEmpty(buf39))
  1245.                { putMsg("Result of AmigaDOS command:") editBuf(buf39) }
  1246.                else
  1247.                { putMsg("No message from AmigaDOS.") freeBuf(buf39) } >
  1248. get a directory - this sets directoryname in buf38 that is used in click-
  1249. loading files (see ctl-buttonDown)
  1250. <alt-z:    putMsg("Enter directory: ")
  1251.            freeBuf(buf38)
  1252.            inputString(buf38)
  1253.            freeBuf(buf54)
  1254.            insertRgn(buf54,eFile,"Dir ",all)
  1255.            insertRgn(buf54,eFile,buf38,all)
  1256.            if (not execute(buf39,buf54)) returnFalse
  1257.            moveCursor(buf38,eFile)
  1258.            moveCursor(buf38,sChar)
  1259.            if (not isEmpty(buf38)) if (not is(buf38,":"))
  1260.                      insertRgn(buf38,eFile,"/",all)
  1261.            insertRgn(buf39,sFile,"
  1262. ",all)
  1263.            insertRgn(buf39,sFile,buf38,all)
  1264.            newFile
  1265.            swapBuf(buf39,curFile)
  1266.            freeBuf(buf39)
  1267.            vScroll(sFile)
  1268.            putMsg("To load files, ctrl-click names with mouse.")
  1269.            setFileName(curFile,buf54)
  1270.            flipFlag(curFile,changed) >
  1271.  
  1272. match columns
  1273. <alt-0: equateNum(n43,n44)
  1274.            runKey(alt-7)
  1275.            while (gtNum(n43,n44)) {
  1276.                insertChar(curFile,32)
  1277.                decNum(n43)
  1278.            }
  1279.            while (gtNum(n44,n43)) {
  1280.                moveCursor(curFile,sChar)
  1281.                if (not is(curFile," ")) returnFalse
  1282.                incNum(n43)
  1283.                clearChar(curFile)
  1284.            } >
  1285. clear leading white space
  1286. <alt-1:   if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1287.            while (is(curFile,whiteSpace)) {
  1288.                if (is(curFile,eLine)) returnTrue
  1289.                clearChar(curFile)
  1290.            } >
  1291. center text in line
  1292. <alt-2:    runKey(alt-1)
  1293.            equateNum(n54,lineLength)
  1294.            do (n53,1,n54) {
  1295.                if (is(curFile,eLine)) goto label(1)
  1296.                incLoc(curFile,atCursor)
  1297.           }
  1298.            label(1)
  1299.            if (gtNum(lineLength,n53)) {
  1300.                if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1301.                sub(n53,lineLength,n53)
  1302.                div(n53,n53,2)
  1303.                do (n54,2,n53) insertChar(curFile," ")
  1304.            } >
  1305. go to page #
  1306. <alt-3: putMsg("Go to page #:")
  1307.         if (inputNum(n54)) if (gtNum(pageLines,1)) {
  1308.            sub(n54,n54,1)
  1309.            mul(n54,n54,pageLines)
  1310.            moveCursor(curFile,sFile)
  1311.            do (n53,1,n54) moveCursor(curFile,downLine)
  1312.         } else putMsg("Lines/page not defined")>
  1313. match indent of prev line
  1314. <alt-4:    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1315.            if (is(curFile,sFile)) returnFalse
  1316.            moveCursor(curFile,sLine)
  1317.            equateNum(n54,0)
  1318.            while (is(curFile,space)) {
  1319.                incLoc(curFile,atCursor)
  1320.                incNum(n54)
  1321.            }
  1322.            moveCursor(curFile,downLine)
  1323.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1324.            equateNum(n53,0)
  1325.            while (is(curFile,space)) {
  1326.                incLoc(curFile,atCursor)
  1327.                incNum(n53)
  1328.            }
  1329.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1330.            while (gtNum(n54,n53)) {
  1331.                insertChar(curFile,32)
  1332.                incNum(n53)
  1333.            }
  1334.            while (gtNum(n53,n54)) {
  1335.                clearChar(curFile)
  1336.                decNum(n53)
  1337.            } >
  1338. justify right
  1339. <alt-5:    equateLoc(curFile,locA,atCursor)
  1340.            runKey(alt-6)
  1341.            equateLoc(curFile,atCursor,locA)
  1342.            decNum(n45)
  1343.            while (gtNum(lineLength,n45)) {
  1344.                insertChar(curFile,32)
  1345.                incNum(n45)
  1346.            }
  1347.            while (gtNum(n45,lineLength)) {
  1348.                moveCursor(curFile,sChar)
  1349.                if (not is(curFile,32)) returnFalse
  1350.                clearChar(curFile)
  1351.                decNum(n45)
  1352.            } >
  1353. store cursor line length in n45
  1354. <alt-6:    equateLoc(curFile,locA,atCursor)
  1355.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1356.            do (n45,1,999999999) {
  1357.                if (is(curFile,eLine)) goto label(1)
  1358.                moveCursor(curFile,eChar)
  1359.            }
  1360.            label(1)
  1361.            equateLoc(curFile,atCursor,locA) >
  1362. store cursor col in n44
  1363. <alt-7:    equateLoc(curFile,locA,atCursor)
  1364.            if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1365.            do (n44,1,999999999) {
  1366.                if (eqLoc(curFile,atCursor,locA)) goto label(1)
  1367.                if (is(curFile,eLine)) goto label(1)
  1368.                moveCursor(curFile,eChar)
  1369.            }
  1370.            label(1)
  1371.            equateLoc(curFile,atCursor,locA) >
  1372. Show value of n-variable
  1373. <alt-8:    putMsg("n-variable #: ")
  1374.            inputNum(n54)
  1375.            freeBuf(buf54)
  1376.            insertChar(buf54,"n")
  1377.            toWord(buf54,n54)
  1378.            insertRgn(buf54,eFile," is ",all)
  1379.            toWord(buf54,n[n54])
  1380.            putMsg(buf54) >
  1381. Set value of n-variable
  1382. <alt-9:    putMsg("Set n-variable #:")
  1383.            inputNum(n54)
  1384.            putMsg("To value:")
  1385.            inputNum(n[n54])>
  1386. tell what ASCII value is of char under cursor (use to ID ctl-chars)
  1387. <ctl-/:    copyChar(curFile,n54)
  1388.            freeBuf(buf54)
  1389.            toWord(buf54,n54)
  1390.            insertRgn(buf54,sFile,"Character value under cursor was ",all)
  1391.            putMsg(buf54)
  1392.            moveCursor(curFile,eChar) >
  1393. display file-size in message line (if slow, it packed file first)
  1394. <ctl-1:    fileSize(curFile,n54)
  1395.            freeBuf(buf54)
  1396.            insertRgn(buf54,sFile,"File size in bytes: ",all)
  1397.            toWord(buf54,n54)
  1398.            putMsg(buf54)>
  1399. <ctl-2:    flipFlag(curFile,rowCol) >
  1400. reformat paragraph
  1401. <ctl-3:    putMsg("Reformatting...")
  1402.            if (reformat) moveCursor(curFile,downLine)
  1403.            putMsg(" ")>
  1404. delete trailing white-space in entire document
  1405. <ctl-4:    equateLoc(curFile,locA,atCursor)
  1406.            moveCursor(curFile,sFile)
  1407.            label(1)
  1408.            if (is(curFile,eFile))
  1409.                { equateLoc(curFile,atCursor,locA) returnTrue }
  1410.            moveCursor(curFile,eLine)
  1411.            moveCursor(curFile,sChar)
  1412.            while (is(curFile,space))
  1413.                { clearChar(curFile) moveCursor(curFile,sChar) }
  1414.            moveCursor(curFile,eLine)
  1415.            goto label(1) >
  1416. save learn-sequence to disk
  1417. <ctl-5:    putMsg("Save Learn under what #?")
  1418.            if (inputNum(n54)) saveLearn(n54) >
  1419. load a learn-sequence stored on disk
  1420. <ctl-6:    putMsg("Load what Learn #?")
  1421.            if (inputNum(n54)) loadLearn(n54) >
  1422. both load & run a learn-sequence stored on disk
  1423. <ctl-7:    putMsg("Input learn # to load & run:")
  1424.            if (inputNum(n54)) if (loadLearn(n54)) runLearn >
  1425. <ctl-8:    flipFlag(curFile,searchCaps) >
  1426.  
  1427. arithmetic commands:
  1428. set running total to zer0
  1429. <ctl-0:     equateNum(n49,0)
  1430.             equateNum(n48,0)
  1431.             equateNum(n47,0) >
  1432. type running total into text at cursor
  1433. <ctl-\:     freeBuf(buf54)
  1434.             if (eqNum(n47,1)) insertChar(buf54,"-")
  1435.             toWord(buf54,n49)
  1436.             insertChar(buf54,".")
  1437.             if (gtNum(10,n48)) insertChar(buf54,"0")
  1438.             toWord(buf54,n48)
  1439.             insertRgn(curFile,atCursor,buf54,all)
  1440.             insertRgn(buf54,sFile,"Inserted total into text ",all)
  1441.             putMsg(buf54) >
  1442. add next word (if a number) to running total & display total
  1443. <ctl-=:     moveCursor(curFile,eWord)
  1444.             moveCursor(curFile,sWord)
  1445.             toNumber(n54,curFile)
  1446.             moveCursor(curFile,eWord)
  1447.             equateNum(n53,0)
  1448.             if (is(curFile,".")) {
  1449.                moveCursor(curFile,eChar)
  1450.                toNumber(n53,curFile)
  1451.                moveCursor(curFile,eWord)
  1452.             }
  1453.             mul(n49,n49,100)
  1454.             add(n49,n49,n48)
  1455.             mul(n54,n54,100)
  1456.             add(n54,n54,n53)
  1457.             if (eqNum(n47,1))  {
  1458.                if (gtNum(n54,n49)) { equateNum(n47,0) sub(n49,n54,n49) }
  1459.                else sub(n49,n49,n54)
  1460.             } else add(n49,n49,n54)
  1461.             mod(n48,n49,100)
  1462.             div(n49,n49,100)
  1463.             freeBuf(buf54)
  1464.             if (eqNum(n47,1)) insertChar(buf54,"-")
  1465.             toWord(buf54,n49)
  1466.             insertChar(buf54,".")
  1467.             if (gtNum(10,n48)) insertChar(buf54,"0")
  1468.             toWord(buf54,n48)
  1469.             insertRgn(buf54,sFile,"Running total is ",all)
  1470.             putMsg(buf54) >
  1471. subtract next word (if a number) from running total & display total
  1472. <ctl--:     moveCursor(curFile,eWord)
  1473.             moveCursor(curFile,sWord)
  1474.             toNumber(n54,curFile)
  1475.             moveCursor(curFile,eWord)
  1476.             equateNum(n53,0)
  1477.             if (is(curFile,".")) {
  1478.                moveCursor(curFile,eChar)
  1479.                toNumber(n53,curFile)
  1480.                moveCursor(curFile,eWord)
  1481.             }
  1482.             mul(n49,n49,100)
  1483.             add(n49,n49,n48)
  1484.             mul(n54,n54,100)
  1485.             add(n54,n54,n53)
  1486.             if (eqNum(n47,0))  {
  1487.                if (gtNum(n54,n49)) { equateNum(n47,1) sub(n49,n54,n49) }
  1488.                else sub(n49,n49,n54)
  1489.             } else add(n49,n49,n54)
  1490.             mod(n48,n49,100)
  1491.             div(n49,n49,100)
  1492.             freeBuf(buf54)
  1493.             if (eqNum(n47,1)) insertChar(buf54,"-")
  1494.             toWord(buf54,n49)
  1495.             insertChar(buf54,".")
  1496.             if (gtNum(10,n48)) insertChar(buf54,"0")
  1497.             toWord(buf54,n48)
  1498.             insertRgn(buf54,sFile,"Running total is ",all)
  1499.             putMsg(buf54) >
  1500.  
  1501. -------------------------- end of Config! ----------------------------------
  1502.  
  1503.  
  1504. Erase these commands after you are through with them.  They'll save about 1.3k
  1505. in data file size.
  1506.  
  1507. DO NOT share or distribute Uedit WITHOUT these commands included!
  1508.  
  1509. Distribute ONLY the original Uedit.arc version!
  1510.  
  1511. When you erase this one, be sure to delete the "About..." menu item above.
  1512.  
  1513. <shftAltCtl-a:
  1514.    freeBuf(buf54)
  1515.    editBuf(buf54)
  1516.    setFileName(buf54,"               About Uedit...")
  1517.    putMsg(" ")
  1518.    insertRgn(buf54,sFile,
  1519. "Uedit is a ShareWare program.  Copy and distribute Uedit.arc to your friends.
  1520.  
  1521. Distribute ONLY the ORIGINAL Uedit.arc!  DO NOT distribute a modified copy!  
  1522.  
  1523. Uedit is Extremely customizable and configurable.  You can even reinvent the
  1524. mouse, menu and gadget commands.  Uedit isn't fast displaying text, because
  1525. it uses the Amiga's text functions.  If you buy Microsmith's Fast Fonts (tm),
  1526. you will be thrilled with the dramatic improvement in speed.  
  1527.  
  1528. Editors are like religion.  Once baptized, people swear by their first editor. 
  1529. If you have not given Uedit a serious try, you are missing out on an editor
  1530. which some have said is the best they've ever seen.
  1531.  
  1532. This About.... was written in Uedit's command language and can be customized
  1533. or erased.  Do not change it in the ShareWare version!  
  1534.  
  1535. If you find Uedit useful, send $25 cash, check or money order to:
  1536. Rick Stiles, 2420 Summit Springs Drive, Atlanta, GA 30338
  1537.  
  1538. You will receive the 118 page Manual with documentation and editing tricks.
  1539. (Send $25 extra, if you want to receive the super-fast version or serial comm
  1540. version which are in the works.  Specify which.)
  1541.  
  1542.  
  1543. ",all)
  1544.    moveCursor(buf54,sFile)
  1545.    equateNum(n54,17)
  1546.    while (decNum(n54)) moveCursor(buf54,eWord)
  1547.    equateLoc(buf54,eInvert,atCursor)
  1548.    moveCursor(buf54,sWord)
  1549.    equateLoc(buf54,sInvert,atCursor)
  1550.    equateNum(n54,15)
  1551.    while (decNum(n54)) moveCursor(buf54,eLine)
  1552.    moveCursor(buf54,sLine)
  1553.    equateLoc(buf54,sHilite,atCursor)
  1554.    equateNum(n54,2)
  1555.    while (decNum(n54)) moveCursor(buf54,eLine)
  1556.    equateLoc(buf54,eHilite,atCursor)
  1557.    moveCursor(buf54,eFile)
  1558.    editBuf(buf54)
  1559.    getKey(n54)
  1560.    freeBuf(buf54)
  1561. >
  1562.  
  1563.  
  1564. Load demo, compile, & run it.  Erase this when you no longer want to be able
  1565. to run the demo.  Or just erase the left angle-bracket.
  1566.  
  1567. <shftAltCtl-d:  runKey(alt-z)>        
  1568.  
  1569.  
  1570.  
  1571. if (loadFile("demo")) { compile runKey(shftAlt-1) } 
  1572.  
  1573.